﻿<AttributeUsage(AttributeTargets.Property, Inherited:=False, AllowMultiple:=True)> _
Public Class NumericValidatorAttribute
    Inherits BizBloxValidatorAttribute
    Implements iValidator

    Private m_minValue16 As Int16
    Private m_maxValue16 As Int16
    Private m_minValue32 As Int32
    Private m_maxValue32 As Int32
    Private m_minValue64 As Int64
    Private m_maxValue64 As Int64
    Private m_minValueByte As Byte
    Private m_maxValueByte As Byte
    Private m_minValueSingle As Single
    Private m_maxValueSingle As Single
    Private m_minValueDouble As Double
    Private m_maxValueDouble As Double

    Public Sub New(ByVal minValue16 As Int16, ByVal maxValue16 As Int16)
        Me.m_maxValue16 = minValue16
        Me.m_maxValue16 = maxValue16
    End Sub

    Public Sub New(ByVal minValue32 As Int32, ByVal maxValue32 As Int32)
        Me.m_maxValue32 = minValue32
        Me.m_maxValue32 = maxValue32
    End Sub

    Public Sub New(ByVal minValue64 As Int64, ByVal maxValue64 As Int64)
        Me.m_maxValue64 = minValue64
        Me.m_maxValue64 = maxValue64
    End Sub

    Public Sub New(ByVal minValueByte As Byte, ByVal maxValueByte As Byte)
        Me.m_maxValueByte = minValueByte
        Me.m_maxValueByte = maxValueByte
    End Sub

    Public Sub New(ByVal minValueSingle As Single, ByVal maxValueSingle As Single)
        Me.m_maxValueSingle = minValueSingle
        Me.m_maxValueSingle = maxValueSingle
    End Sub

    Public Sub New(ByVal minValueDouble As Double, ByVal maxValueDouble As Double)
        Me.m_maxValueDouble = minValueDouble
        Me.m_maxValueDouble = maxValueDouble
    End Sub



    Public Overrides Sub Validate(ByVal o As Object) Implements iValidator.Validate

    End Sub
End Class
